home *** CD-ROM | disk | FTP | other *** search
/ Immoral Angel 1 / Immoral Angel 1.iso / mac / MSTR / PROGRAM / TITLE.DIR / 00145.ls < prev    next >
Encoding:
Text File  |  1997-07-10  |  2.0 KB  |  87 lines
  1. on startMovie
  2.   global poponoff, packagenum, whichview, status, startTime, fileName, cursorpointer
  3.   set poponoff to 0
  4.   set whichview to "photo"
  5.   set status to EMPTY
  6.   set fileName to "TITLE"
  7.   put packagenum && whichview
  8.   set startTime to ticks()
  9.   cursor(cursorpointer)
  10. end
  11.  
  12. on button
  13.   global status, bgmonoff
  14.   if status <> EMPTY then
  15.     beepsound()
  16.     return 0
  17.   end if
  18.   set buttonname to item 1 of the name of cast the castNum of sprite clickOn()
  19.   repeat while stillDown()
  20.     if rollOver(clickOn()) then
  21.       set the castNum of sprite clickOn() to the number of member (buttonname & ",down")
  22.     else
  23.       set the castNum of sprite clickOn() to the number of member (buttonname & ",up")
  24.     end if
  25.     updateStage()
  26.   end repeat
  27.   set the castNum of sprite clickOn() to the number of member (buttonname & ",up")
  28.   updateStage()
  29.   if rollOver(clickOn()) then
  30.     puppetSound(bgmonoff)
  31.     updateStage()
  32.     return 1
  33.   else
  34.     return 0
  35.   end if
  36. end
  37.  
  38. on button2
  39.   global bgmonoff
  40.   set buttonname to item 1 of the name of cast the castNum of sprite clickOn()
  41.   repeat while stillDown()
  42.     if rollOver(clickOn()) then
  43.       set the castNum of sprite clickOn() to the number of member (buttonname & ",down")
  44.     else
  45.       set the castNum of sprite clickOn() to the number of member (buttonname & ",up")
  46.     end if
  47.     updateStage()
  48.   end repeat
  49.   set the castNum of sprite clickOn() to the number of member (buttonname & ",up")
  50.   updateStage()
  51.   if rollOver(clickOn()) then
  52.     puppetSound(bgmonoff)
  53.     updateStage()
  54.     return 1
  55.   else
  56.     return 0
  57.   end if
  58. end
  59.  
  60. on beepsound
  61.   global bgmonoff, beepnum
  62.   puppetSound(string(beepnum))
  63.   updateStage()
  64. end
  65.  
  66. on wait t
  67.   set waittime to ticks() + (t * 60)
  68.   repeat while ticks() < waittime
  69.     nothing()
  70.   end repeat
  71. end
  72.  
  73. on idle
  74.   global startTime, fileName
  75.   checktimeout()
  76.   if fileName = "MAIN" then
  77.     exit
  78.   end if
  79.   set runningtime to ticks() - startTime
  80.   if runningtime > (7 * 60 * 60) then
  81.     set startTime to ticks()
  82.     if random(5) = 2 then
  83.       bomb()
  84.     end if
  85.   end if
  86. end
  87.